﻿Imports QLTHUVIEN.DAO
Imports QLTHUVIEN.DTO

Public Class BoPhanBUS
    Public Function LayDanhSach() As DataTable
        Dim bc As BoPhanDAO = New BoPhanDAO()
        Dim dt As DataTable = bc.LayDanhSach()
        Return dt
    End Function

    Public Sub ThemBoPhan(ByVal BoPhan As BoPhanDTO)
        Dim bcDao As New BoPhanDAO()
        bcDao.ThemBoPhan(BoPhan)
    End Sub

    Public Sub SuaBoPhan(ByVal BoPhan As BoPhanDTO)
        Dim bcDao As New BoPhanDAO()
        bcDao.SuaBoPhan(BoPhan)
    End Sub

    Public Sub XoaBoPhan(ByVal BoPhan As BoPhanDTO)
        Dim bcDao As New BoPhanDAO()
        bcDao.XoaBoPhan(BoPhan)
    End Sub
End Class
